home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilmus / sfxbin00.lha / sfx-bin / _rexx / tester.rexx < prev   
OS/2 REXX Batch file  |  1994-12-22  |  1KB  |  56 lines
  1. /* SFX Arexxtester */
  2.  
  3. options results
  4.  
  5. ADDRESS REXX_SFX
  6.  
  7. say 'SFX-ArexxTester';say;
  8.  
  9. SelLoader 'RAW';
  10. if RC~=0 then call AppError('SelLoader',RC);
  11. say 'press key to continue';
  12. pull;
  13.  
  14. LoadSample 'misc:px-b1';
  15. if RC~=0 then call AppError('LoadSample',RC);
  16. say 'press key to continue';
  17. pull;
  18.  
  19. LoadSample 'misc:px-b2';
  20. if RC~=0 then call AppError('LoadSample',RC);
  21. say 'press key to continue';
  22. pull;
  23.  
  24. SetActiveBuffer 'px-b1';
  25. if RC~=0 then call AppError('SetActiveBuffer',RC);
  26. say 'press key to continue';
  27. pull;
  28.  
  29. RenameActiveBuffer 'px-bass1';
  30. if RC~=0 then call AppError('RenameActiveBuffer',RC);
  31. say 'press key to continue';
  32. pull;
  33.  
  34. ActivateSFX;
  35. if RC~=0 then call AppError('ActivateSFX',RC);
  36. say 'press key to exit';
  37. pull;
  38.  
  39. ExitSFX;
  40. if RC~=0 then call AppError('ExitSFX',RC);
  41.  
  42. exit
  43.  
  44. AppError:procedure
  45.     cmd=arg(1);
  46.     ret=arg(2);
  47.     say 'Application Error';say;
  48.     say 'Command 'cmd' failed with Returncode 'ret;
  49.     select
  50.         when ret='1' then say '    => unknown command';
  51.         when ret='2' then say '    => unknown parameter';
  52.         otherwise say '    => unknown returncode';
  53.     end
  54.     say;
  55. return
  56.